É um script simples. Criado para iniciantes.

Não é nenhum [nmap] mas é bem legal e funcional.

Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.

Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.

• Download SimplePortScanner.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
#--------------------------------------------------------------------------------------------------------
#
# @Author: breek
# @Code: SimplePortScanner.pl
# @Version: 0.1.0
# @Date: 22/02/2012
#
#--------------------------------------------------------------------------------------------------------

#===============================================================#
# É um script simples. Criado para iniciantes.
# Não é nenhum [nmap] mas é bem legal e funcional. 
#
# Esta bem comentado. É claro que esta em [inglês], mas
# é para não perder o costume. Usei o [Google Tradutor],
# caso haja alguma palavra errada é culpa é dele.
#
# Criado para ser modificado. Cada modificação mexa na versão.
# NÃO ALTERE MEU NOME!!
# NÃO ALTERE O NOME DO SCRIPT!!
#===============================================================#

use strict;
use warnings;
use IO::Socket;

#--------------------------------------------------------------------------------------------------------
#__BEGIN_MAIN__
#
# Name: Main
#
# Purpose: Initializes the script.
# 
# Input: $Var_IP
#           $Var_BeginPort
#           $Var_EndPort
#
# Output: $Var_IP
#             $Var_Scanning
#

#-----------------------------
#Global variables
#
my $Var_IP;                  # Recebe o [Endereço IP]    - USUARIO
my $Var_BeginPort;       # Recebe a [Porta inicial]     - USUARIO
my $Var_EndPort;          # Recebe a [Porta final]       - USUARIO
my $Var_Scanning;        # Escanea as portas            - SCRIPT
my $Var_FindOpenPort;  # Recebe as portas abertas - SCRIPT
#
#
#-----------------------------

system( "cls" );

# Recebe o [Endereço IP] #
print "Enter the IP address: ";
$Var_IP = <>;
chomp $Var_IP;

# Recebe a [Porta inicial] #
print "Enter the starting port: ";
$Var_BeginPort = <>;
chomp $Var_BeginPort;

# Recebe a [Porta final] #
print "Enter the ending port: ";
$Var_EndPort = <>;
chomp $Var_EndPort;

# Iniciando escaneamento #
print "\n\nScanning IP [ $Var_IP ]. \n\n";

# Escaneando #
for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ )
{
   
   $Var_FindOpenPort = IO::Socket::INET->new(
                                                                           PeerAddr => $Var_IP,              # Endereço IP
                                                                           PeerPort => "$Var_Scanning",  # Numero da porta
                                                                           Proto => "TCP",                       # Protocolo
                                                                     );
         
   # Porta aberta encontrada #         
   if( $Var_FindOpenPort )
   {
      print "[+] Port [$Var_Scanning] is open. \n";
   }
   
}

# Finalizando script #
print "\nScanning...DONE. \n";
exit;

#__END_MAIN__
#--------------------------------------------------------------------------------------------------------

Importação de IPs do Whatsapp como Objeto do Zentyal

Servidor remoto de ps aux

Carregando automaticamente wireless via ndiswrapper

Web Fuzzer em Perl

UDP flood em Perl!

Nenhum comentário foi encontrado.